## Not run:
# suppressMessages(library(cubfits, quietly = TRUE))
# set.seed(1234)
#
# # Generate sequences.
# da.roc <- simu.orf(length(ex.train$phi.Obs), b.Init$roc,
# phi.Obs = ex.train$phi.Obs, model = "roc")
# names(da.roc) <- names(ex.train$phi.Obs)
# write.fasta(da.roc, names(da.roc), "toy_roc.fasta")
# ## End(Not run)
Run the code above in your browser using DataLab